Tidying
rest_inspec =
rest_inspec %>%
janitor::clean_names() %>%
drop_na()
Scatterplot of latitude vs. longitude, colored by grade
rest_inspec %>%
mutate(
label = str_c("Borough: ", boro, "\nScore: ", score)
) %>%
plot_ly(
x = ~latitude, y = ~longitude, color = ~grade, text = ~label,
type = "scatter", mode = "markers", alpha = 0.5
)